home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Agamik BarCoding / Agamik BarCoder Demo 3.03 / Agamik BarCoder Demo 3.03.rsrc / STR#_4011.txt < prev    next >
Text File  |  1998-05-23  |  875b  |  63 lines
  1. %%EndProcSet
  2.  
  3. setpacking
  4.  
  5. currentdict readonly pop end
  6.  
  7. 3 { 1 sub neg 3 1 roll } repeat 0 } def
  8.  
  9. Adobe_cmykcolor_vars /_currentrgbcolor get exec
  10.  
  11. /currentcmykcolor {
  12.  
  13. pop } def 
  14.  
  15. Adobe_cmykcolor_vars /_setrgbcolor get exec
  16.  
  17. /setcmykcolor { 1 sub 4 1 roll 3 { 3 index add neg dup 0 lt { pop 0 } if 3 1 roll } repeat
  18.  
  19. /terminate { currentdict Agamik_cmykcolor eq {  end } if } def
  20.  
  21. } def
  22.  
  23. } ifelse
  24.  
  25. Agamik_cmykcolor begin
  26.  
  27. end
  28.  
  29. end
  30.  
  31. { dup xcheck { bind } if pop pop } forall
  32.  
  33. Agamik_cmykcolor
  34.  
  35. Agamik_cmykcolor begin
  36.  
  37. /currentrgbcolor load def
  38.  
  39. /_currentrgbcolor
  40.  
  41. /setrgbcolor load def
  42.  
  43. /_setrgbcolor
  44.  
  45. { userdict /Adobe_cmykcolor_vars 2 dict dup begin put
  46.  
  47. /setcmykcolor where { pop }
  48.  
  49. {
  50.  
  51. /initialize
  52.  
  53. userdict /Agamik_cmykcolor 4 dict dup begin put
  54.  
  55. currentpacking true setpacking
  56.  
  57. %%BeginProcSet: Agamik_cmykcolor 1.1 0
  58.  
  59. %%EndComments
  60.  
  61. %%DocumentPreview: Macintosh_ColorPic
  62.  
  63.